Aminet 1

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume91 / utilitys / amicron4 / part01

Wrap

Internet Message Format | 1991-03-14 | 46.6 KB

Path: news.larc.nasa.gov!amiga-request From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Subject: v91i061: AmiCron 4.2 - cron task for the amiga, Part01/01 Reply-To: ps106363@lehtori.tut.fi (Pasi Sainio) Newsgroups: comp.sources.amiga Message-ID: <comp.sources.amiga:v91i061@ab20.larc.nasa.gov> Date: 14 Mar 91 01:36:59 GMT Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga.misc Submitted-by: ps106363@lehtori.tut.fi (Pasi Sainio) Posting-number: Volume 91, Issue 061 Archive-name: utilities/amicron-4.2/part01 [ includes uuencoded executables ...tad ] There is now two version. One that detaches itself from the running shell and the other one that doesn't. So if you need the shell-window use AmiCronS and if you don't, use AmiCron. The other difference is the crontable IS NO LONGER DISK-RESIDENT!!. The program will read it to the ram and use that. If you want to use an other crontable, just run the program with other filename. It will send a messages to the one that is resident and it will read the new table to the memory. This is a (no longer) crude but effective version of the Unix (tm) program known as "cron" modified to run on an Amiga. For those who aren't Unix knowledgeable, cron is a background task which uses a disk-resident table to automatically run certain tasks on a regular basis. #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 1)." # Contents: AmiCron.c AmiCron.doc AmiCron.uu AmiCronS.uu crontab inc.c # makefile run.a self.a start.a # Wrapped by tadguy@ab20 on Wed Mar 13 20:36:57 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'AmiCron.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'AmiCron.c'\" else echo shar: Extracting \"'AmiCron.c'\" $13838 characters$ sed "s/^X//" >'AmiCron.c' <<'END_OF_FILE' X/**************************************************************************** X * * X * A M I C R O N * X * * X * Version 4.2 - 03-Jan-91 * X * * X * by P. Sainio * X * * X **************************************************************************** X X This is my version of AmiCron, I hope you like it... It's still Xin public domain so if you have any ideas let us know about them. X X * X * amicron.c (Version 2.5(a&L) by <CB>) X * X * Public Domain (p) No Rights Reserved X * X * This program operates as a daemon, waking up every minute X * to execute the CRONTAB table. X * X * Put in startup-sequence like: X * run newcli con:0/140/160/50/CronTask s:startcron X * The startcron file needs to contains just one line: X * amicron X * X * Some notes are included below concerning the cron table X * file format. In this version the cron table file is left X * on disk and not moved to core, and the command character X * to signify a newline '%' is not used. X * X * Some cron table entry examples: X * X * Print the date in the crontask window every minute: X * * * * * * date X * X * Print the date in the crontask window on the hour, every hour: X * 0 * * * * date X * X * Run uupc at 4:30 am every day except Sat and Sun: X * 30 4 * * 1-5 uupc -siscuva X * X * Backup the files every other day at 7:30 pm: X * 30 19 * * 1,3,5 sdbackup -s LAST dh0: incbkup_1: X * X */ X X/* X * Public Domain (p) by S. R. Sampson X * Version 2.3, October 1987 X * Amiga port by Rick Schaeffer October 1987 X * X * Rick Schaeffer UUCP: seismo!uunet!iscuva!ricks!ricks X * E. 13611 26th Ave. Phone: (509)928-3533 X * Spokane, WA 99216 X * X * Modified path for CronTab & CronErr to suit Amiga enviroment better X * Version 2.31 <CB> 15.12.87 X * X * Fixed bug with CronTab entries specifying an event by date (month) X * i.e. "* * 24 12 * say Merry christmas", now works! X * Version 2.32 <CB> 25.12.87 X * X * Removed "CronErr", an obvious Unix "feature" X * Version 2.33 <CB> 31.12.87 X * X * Additional support for Lattice 4.0, changed to complete sleep (no more X * 5 I/O ints. per second), added command line parameter for CronTab path. X * Added feature to align Cron to start on 01 seconds, including "loss" X * due to lengthy command calls or extensive I/O. X * Version 2.4 <CB> 10.01.88 X * X * GRRRRRRR. Just when I thought it was safe to release that thing, C=A brings X * out AmyDos 1.3. So to have the output of programs called by Cron visible, I X * changed the "Run >nil:" parameter for execute() back to "Run ". This means, X * that you will have to look at the annoying CLI[#] messages, each time some X * program is called. I was pleased with the way the old RUN >nil: worked, and X * will try to convince Andy Finkel to bring it back. X * In the meantime, this is: X * Version 2.5 <CB> 27.03.88 X * X * Changed it to use ARP. There is two versions, one that detaches itself from X * self and the other that doesn't X * Version 4.2 <PS> 03.01.91 X X X______ / X______\O - The Software Brewery - X \\ X o Sparkling, fresh software from W.-Germany X X @@@@@ Straight from the bar to your Amiga X |~~~|\ X | | |/ X |___| With our regards to the Software Distillery X XMembers are (listed alphabetically): XChristian Balzer alias <CB>, Lattice C, user interfaces, beer addict. XChristof Bonnkirch, Aztec C, telecommunications, money adict. XHeiko Rath alias <HR>, Assembler, ROM-Kernal stuff, Marabou addict. XPeter Stark alias PS, Lattice C, IO & utilities, WordStar addict. XRalf Woitinas alias RAF, Assembler, anything, Ray-Tracing addict. XTorsten Wronski alias MM, Assembler, anything, girls addict. X XBeverages: Altenmuenster Brauer Bier, Urfraenkisches Landbier, Grohe Bock. X XSend exotic drinks, comments, critizism, flames to: X XThe Software Brewery XChristian Balzer XIm Wingertsberg 45 XD-6108 Weiterstadt XWest-Germany X XOur BBS "AmigaNode" isn't online yet. As soon as it becomes available, Xyou'll be the first to know :-). X X * X * Compilation notes: X * Program is compiled with Lattice C 5.05 and the makefile is included. X * I have removed some of the comments, sorry about that. If you're X * intrested see the original source. X * X * NOTE!!! There is no errorchecking for crontab-file... X */ X X#define MAXLINE 132 X#define SIZE 64 X#define ABSEXECBASE ((struct ExecBase **)4L) X#define NOCRON "Can't get crontab-file" X#define CRONPORT "AmiCronV4.2" X#define NO_MESS_MEM "No memory for message!" X#define NO_REPLY "Could not create replyport!" X#define ERR_IN_FILE "Error reading crontab-file!" X#define NO_DEVICE "Could not open timer.device!" X#define NO_TIMER_PORT "Could not open timerport!" X#define NO_CRON_PORT "Could not create CronPort!" X#define EXITING "Quiting the AmiCron!" X Xstruct cronmsg { X struct Message cm_Msg; X char *newfile; X}; X Xstruct iobuf { X unsigned char *base; X unsigned char *ptr; X int rcnt; X int size; X}; X Xtypedef char boolean; X Xextern struct ArpBase *ArpBase; Xextern struct DOSBase *DOSBase; Xextern struct IntuitionBase *IntuitionBase; X Xstruct MsgPort *timerport,*cronport,*mycron=NULL,*replyport; Xstruct iobuf fd; Xstruct cronmsg *newcron; X Xstruct NewShell nsh; Xstruct timerequest tr; X Xchar min[SIZE],hour[SIZE],day[SIZE],month[SIZE],wday[SIZE],command[SIZE],eof, X *tokv[]={min,hour,day,month,wday}, X *com="CronFile",*args,*help="Usage: AmiCron [CronFile]", X cronfile[256]="S:CronTab"; X Xstruct TextAttr myfont = { X "topaz.font", X TOPAZ_EIGHTY,0,0 }; X Xstruct IntuiText body1={ X 0,1,JAM1,10,5,&myfont,NULL,NULL },body2={ X 0,1,JAM1,10,14,&myfont,NULL,NULL },no1={ X 0,1,JAM1,6,3,&myfont,"Cancel",NULL },no2={ X 0,1,JAM1,6,3,&myfont,"Quit",NULL }; X Xstatic void cleanup(void),alarm(int),wakeup(void),MyExit(void); Xstatic ULONG systime(void); Xstatic boolean getline(void),getfile(void), X match(register char *,register int); Xstatic char *scanner(register char *,register char *), X *fgets(char *,int); X Xvoid __asm __saveds AmiCron(register __a0 char *cmd,register __d0 long len) { X X ULONG current,signals,getsigs,timesig,messig; X long count; X register struct tm *tm; X X count=GADS(cmd,len,help,&args,com); X if (count<0) { X body1.IText=args; X AutoRequest(NULL,&body1,NULL,&no1,0,0,188,50); X cleanup(); X } X X if (count) X strcpy(cronfile,args); X X Forbid(); X X if (mycron=FindPort(CRONPORT)) { X Permit(); X if (replyport=CreatePort(0,0)) { X if (newcron=AllocMem(sizeof(struct cronmsg), X MEMF_PUBLIC|MEMF_CLEAR)) { X newcron->cm_Msg.mn_Node.ln_Type=NT_MESSAGE; X newcron->cm_Msg.mn_ReplyPort=replyport; X newcron->newfile=cronfile; X PutMsg(mycron,newcron); X WaitPort(replyport); X FreeMem(newcron,sizeof(struct cronmsg)); X } X else { X body1.IText=NO_MESS_MEM; X AutoRequest(NULL,&body1,NULL,&no1,0,0,sizeof(NO_MESS_MEM)*8+44,50); X } X DeletePort(replyport); X } X else { X body1.IText=NO_REPLY; X AutoRequest(NULL,&body1,NULL,&no1,0,0,sizeof(NO_REPLY)*8+44,50); X } X cleanup(); X } X X else { X if (!(cronport=CreatePort(CRONPORT,0))) { X body1.IText=NO_CRON_PORT; X AutoRequest(NULL,&body1,NULL,&no1,0,0,sizeof(NO_CRON_PORT)*8+44,50); X cleanup(); X } X } X Permit(); X X if (timerport=CreatePort(0,0)) { X tr.tr_node.io_Message.mn_Node.ln_Type=NT_MESSAGE; X tr.tr_node.io_Message.mn_Length=sizeof(struct timerequest); X tr.tr_node.io_Message.mn_ReplyPort=timerport; X X if (!OpenDevice(TIMERNAME,UNIT_VBLANK,&tr,0)) { X if (getfile()) { X signals=SIGBREAKF_CTRL_C|(timesig = 1<<timerport->mp_SigBit)| X (messig = 1<<cronport->mp_SigBit); X for (;;) { X wakeup(); X current=systime(); X tm=localtime(¤t); X alarm(60-tm->tm_sec); X do { X getsigs=Wait(signals); X if (getsigs & SIGBREAKF_CTRL_C) X cleanup(); X if (getsigs & messig) { X if (newcron=(struct cronmsg *)GetMsg(cronport)) { X strcpy(cronfile,newcron->newfile); X ReplyMsg(newcron); X DosFreeMem(fd.base); X fd.base=NULL; X if (!getfile()) X cleanup(); X } X } X } X while (!(getsigs & timesig)); X } X } X } X } X cleanup(); X} X Xstatic void wakeup() { X X register struct tm *tm; X long cur_time; X X cur_time=systime(); /* get the current time */ X tm = localtime(&cur_time); /* break it down */ X X /* Now let's see if there is a CronTab file out there <CB> */ X X eof = FALSE; X X while (!eof) { X if (getline() && match(min,tm->tm_min) && X match(hour,tm->tm_hour) && match(day,tm->tm_mday) && X match(month,tm->tm_mon+1) && match(wday,tm->tm_wday)) { X /* Weird localtime months ^ range from 0-11 !!! <CB>*/ X nsh.nsh_Pri=(*ABSEXECBASE)->ThisTask->tc_Node.ln_Pri; X nsh.nsh_Control=BACKGROUND_SHELL; X nsh.nsh_Input=Input(); X nsh.nsh_Output=Output(); X ASyncRun(command,NULL,(struct ProcessControlBlock *)&nsh); X } X } X} X X X/* X * A line consists of six fields. The first five are: X * X * minute: 0-59 X * hour: 0-23 X * day: 1-31 X * month: 1-12 X * weekday: 0-6 (Sunday = 0) X * X * The fields are seperated by spaces or tabs, with the X * first field left justified (no leading spaces or tabs). X * See below for optional field syntax. X * X * The last field is the command field. This command will X * be executed by the CLI just as if typed from a console. X */ X Xstatic boolean getline() { X register char *p; X register int i; X char buffer[MAXLINE]; X X if (fgets(buffer,sizeof buffer) == NULL) { X eof = TRUE; X return(FALSE); X } X X for (p = buffer, i = 0; i < 5; i++) { X if ((p = scanner(tokv[i], p)) == (char *)NULL) X return(FALSE); X } X X strcpy(command, p); /* scoop the command */ X return(TRUE); X} X X Xstatic char *scanner(register char *token,register char *offset) { X /* *token target buffer to receive scanned token */ X /* *offset place holder into source buffer */ X while ((*offset != ' ') && (*offset != '\t') && *offset) X *token++ = *offset++; X X /* X * Check for possible error condition X */ X X if (!*offset) X return ((char *)NULL); X X *token = '\0'; X X while ((*offset == ' ') || (*offset == '\t')) X offset++; X X return (offset); X} X X X/* X * This routine will match the left string with the right number. X * X * The string can contain the following syntax: X * X * * This will return TRUE for any number X * x,y [,z, ...] This will return TRUE for any number given. X * x-y This will return TRUE for any number within X * the range of x thru y. X */ X Xstatic boolean match(register char *left,register int right) { X X register int n; X register char c; X X n = 0; X X if (!strcmp(left, "*")) X return(TRUE); X X while ((c = *left++) && (c >= '0') && (c <= '9')) X n = (n * 10) + c - '0'; X X switch (c) { X case '\0': X return ((boolean)(right == n)); X X case ',': X if ((boolean)(right == n)) X return(TRUE); X do { X n = 0; X while ((c = *left++) && (c >= '0') && (c <= '9')) X n = (n * 10) + c - '0'; X if (right == n) X return(TRUE); X } while (c == ','); X return(FALSE); X X case '-': X if (right < n) X return(FALSE); X X n = 0; X while ((c = *left++) && (c >= '0') && (c <= '9')) X n = (n * 10) + c - '0'; X X return((boolean)(right <= n)); X } X} X Xstatic boolean getfile(void) { X X BPTR lock,file; X struct FileInfoBlock *fib; X boolean succ=FALSE; X X if (lock=Lock(cronfile,ACCESS_READ)) { X if (fib=AllocMem(sizeof(struct FileInfoBlock),MEMF_PUBLIC)) { X if (Examine(lock,fib)) { X if (fd.base=DosAllocMem(fib->fib_Size)) { X if (file=Open(cronfile,MODE_OLDFILE)) { X fd.size=Read(file,fd.base,fib->fib_Size); X if (fd.size=fib->fib_Size) X fd.ptr=fd.base; X succ=TRUE; X Close(file); X } X } X } X FreeMem(fib,sizeof(struct FileInfoBlock)); X } X UnLock(lock); X } X if (!succ) { X X long length; X X body1.IText=NOCRON; X body1.NextText=&body2; X body2.IText=cronfile; X length=strlen(cronfile); X X AutoRequest(NULL,&body1,NULL,&no1,0,0,((length>sizeof(NOCRON))? X length : sizeof(NOCRON))*8+44,59); X } X return succ; X} X Xstatic char *fgets(char *buffer,int len) { X X unsigned char ch; X int count=0; X X while (len>count) { X if (fd.rcnt<fd.size) { X if ((ch=*fd.ptr++)=='\n') { X buffer[count++]='\0'; X fd.rcnt++; X return buffer; X } X buffer[count++]=ch; X fd.rcnt++; X } X else { X fd.rcnt=0; X fd.ptr=fd.base; X if (count==0) X return NULL; X else { X buffer[count]='\0'; X return buffer; X } X } X } X} X Xstatic ULONG systime() { X tr.tr_node.io_Command=TR_GETSYSTIME; X DoIO(&tr); X return (tr.tr_time.tv_secs+(((8*365+2)*24+6)*60*60)); X /* To Greenwich Mean Time ^^^^^^^^^^^^^^^^^^^^^ */ X} X Xstatic void alarm(int secs) { X tr.tr_node.io_Command=TR_ADDREQUEST; X tr.tr_time.tv_secs=secs; X tr.tr_time.tv_micro=0; X SendIO(&tr); X} X Xstatic void cleanup() { X if (cronport) { X Forbid(); X while (newcron=(struct cronmsg *)GetMsg(cronport)) X ReplyMsg(newcron); X DeletePort(cronport); X Permit(); X if (fd.base) X DosFreeMem(fd.base); X if (timerport) { X if (tr.tr_node.io_Device) { X if (tr.tr_node.io_Command) X AbortIO(&tr); X CloseDevice(&tr); X } X else { X body1.IText=NO_DEVICE; X AutoRequest(NULL,&body1,NULL,&no1,0,0,sizeof(NO_DEVICE)*8+44,50); X } X DeletePort(timerport); X } X else { X body1.IText=NO_TIMER_PORT; X AutoRequest(NULL,&body1,NULL,&no1,0,0,sizeof(NO_TIMER_PORT)*8+44,50); X } X body1.IText=EXITING; X body1.NextText=NULL; X AutoRequest(NULL,&body1,NULL,&no2,0,0,sizeof(EXITING)*8+44,50); X } X MyExit(); X} END_OF_FILE if test 13838 -ne `wc -c <'AmiCron.c'`; then echo shar: \"'AmiCron.c'\" unpacked with wrong size! fi # end of 'AmiCron.c' fi if test -f 'AmiCron.doc' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'AmiCron.doc'\" else echo shar: Extracting \"'AmiCron.doc'\" $9059 characters$ sed "s/^X//" >'AmiCron.doc' <<'END_OF_FILE' X AmiCron - Cron task for the Amiga X XFollowing below is the original AmiCron documentation by Rick XSchaeffer (Version 2.3) and Christian Balzer (Version 2.5). XI haven't changed it so I list here the changes. X<PS> X XThe difference is that there is now two version. One that detaches Xitself from the running shell and the other one that doesn't. So if Xyou need the shell-window use AmiCronS and if you don't, use AmiCron. XThe other difference is the crontable IS NO LONGER DISK-RESIDENT!!. XThe program will read it to the ram and use that. If you want to use Xan other crontable, just run the program with other filename. It will Xsend a messages to the one that is resident and it will read the new Xtable to the memory. X<PS> X X---snip------snap------snip------snap------snip------snap------snip--- X XFollowing below is the original AmiCron documentation by Rick XSchaeffer (Version 2.3). I changed it were necessary and listed Xadditional features below. X<CB> X XThis is a (no longer) crude but effective version of the Unix (tm) Xprogram known as "cron" modified to run on an Amiga. For those Xwho aren't Unix knowledgeable, cron is a background task which Xuses a disk-resident table to automatically run certain tasks on a Xregular basis. The cron table's format is very simple...it Xcontains entries in the form of lines where each line has 6 fields Xand each field is separated by "white space" (either tabs or Xspaces) from it's neighbor. The fields are as follows: X X 1. Minute (0-59) X 2. Hour (0-23) X 3. Day (1-31) (now works, <CB>) X 4. Month (1-12) X 5. Day of week (0-6 where 0=Sunday and 6=Saturday) X 6. Command This is the command to be run at the appointed X time. It will be run just as if typed into X the CLI. X XEach of the first 5 fields are numbers. However, it is Xpermissable to use an asterisk (*) in a field to mean ALL possible Xnumbers for that field, and you can specify a series of numbers Xseparated by commas (,) and ranges separated by dashes (-). For Xinstance, in the Day field you could specify "1,5,10" to mean the Xfirst, fifth, and tenth days of the month; or you could specify X"1-15" to mean the first through the fifteenth of the month. Here Xare some examples of Amicron table entries: X X Print the date in the crontask window every minute: X * * * * * date X X Print the date in the crontask window on the hour, every hour: X 0 * * * * date X X Run uupc at 4:30 am every day except Sat and Sun: X 30 4 * * 1-5 uupc -siscuva X X Incrementally backup the files every other day at 7:30 pm: X 30 19 * * 1,3,5 sdbackup -l -s LAST dh0: incbkup_1: X X Backup the files on the 1st and 15th of each month at 1:00 am: X 00 01 1,15 * * sdbackup -l dh0: SemiBkup_1: X XThe Amicron table file is by default located using the following path: X X S: (or S:CronTab to be exact and include the filename) X Xbut you now may specify a complete path (including filename!) for Xthe CronTab file (which needn't but should have this name) as a Xcommand line parameter like this: X X Amicron RAM:MyCronTab X Xwhich would cause Amicron to use the CronTab file "MyCronTab" Xlocated in the RAM: disk and not to access a disk drive every minute Xto read in the CronTab file. X XCrontab entries *MUST* be left justified starting in column 1 and Xeach entry must contain 6 fields, each separated by spaces or Xtabs. X XTo run Amicron, you must use your favorite editor to create the X"CronTab" file. Amicron needs a CLI window for displaying the Xoutput of the commands it runs...but it can be made as small or Xlarge as you wish. Assuming that you have placed Amicron in your Xcommand directory (c:), you can start it by typing the following Xline into a "newcli" window: X Amicron XThen you can size and move the window anywhere you want, just be Xsure not to type anything else into the window because that would Xprevent cron tasks from running (read: printing something in that Xwindow). X XI have an entry in my startup-sequence file that looks like this: X run newcli con:0/140/160/50/CronTask s:startcron XThe "s:startcron" file contains one line: X Amicron XThis automatically sets up a tiny CronTask window and runs Amicron Xin it. X XThis program was originally written by Steve R. Sampson (UUCP: Xsys1!killer!sampson), who very kindly responded to my request for Xa PD cron that I could port to Minix. I haven't done that yet X(My new Amiga 2000 came in right after I received the cron Xprogram <grin>) but will do so ASAP. The modifications to make Xit run on the Amiga were very minor! X XRick Schaeffer UUCP: seismo!uunet!iscuva!ricks XE. 13611 26th Ave. Phone: (509)928-3533 XSpokane, WA 99216 X X---- Changes up to Version 2.4 XV2.31& V2.32 XBesides changing the paths for CronTab (s:) & CronErr (t:) to more Xdecent Amiga places, I encountered a bug when I wanted to start Xcron a special program on xmas. After some investigation I found Xout that the localtime() function returns months only in the range Xfrom 0 to 11. So it was not surprising that my "12" in the month Xfield of CronTab was completely ignored. XTo not have the user adapt to the computer by having him to supply Xmonths in the range from 0 to 11, I now increase the localtime() Xmonth by one, so the documentation above is correct again. X XV2.33 XThen I started wondering what that CronErr file was doing in the Xfirst place, since all errors where displayed in the CLI window. XThat instantly lead to the removal of this Unix artefact. XI'm aware of the need for a stderr output, nevertheless Cron should Xalways be attached to a CLI, so we can get rid of CronErr. X XV2.4 (a = Aztec C V3.6 , L = Lattice C V4.0) XI experienced a loss of aprox. one second per minute in the AmiCron Xwakeups, since it was send to sleep for a fixed amount of time (59 Xseconds). The time Cron did spent in "bed" increased with the Xlength of the command call and the workload of the machine X(especially I/O ints. like disk access). XSo I now align to the to the next minute and keep this alignment by Xtranquilizing the task only for the remaining time 'till the next Xminute. Although the goal of starting it on the minute may only work Xif there is no heavy workload on your machine, this delay is at least Xnot cumulative, like the one in the original version. XAnother odd thing is that the Delay() function (nasty AmigaDog) Xobviously creates 5 I/O ints. per second (measured with SysMon Xby Perry S. Kivolovitz). XAlthough I couldn't detect any performance decreases caused by these Xinterrupts, I decided to use the TimeDelay function from the Timer.c XRKM example by Rob Peck in version 2.4 of AmiCron. Besides creating Xno I/O ints., I found that the TimeDelay() function is not effected Xby other I/O ints., so it turned out to be MUCH more accurate than Xthe Delay() function and therefore worth compiling & linking that Xtimer.c part. XI also included the path command line parameter, a check for the Xexistance of the CronTab file and tighten up the code here and there. X XV2.5 XJust in time for KS & WB 1.3 I changed my "run >nil:" call in AmiCron Xback to a plain "run", since the 1.3 RUN kills ALL output, not just Xthe naughty "[CLIn]" message from RUN. Hope you have a good time Xwatching thoose CLI messages in your Cron window :-}. X XSome hints for the serious AmiCron addict: XIf don't wanna AmiCron to stumble through your default path and Xblast you with requesters (i.e you sometimes remove a disk with Xutilities on which you have a path assigned to), why not define Xyour own path in the StartCron batch file? Quite simple, but very Xeffective. XAmiCron can be easyly terminated (during it's next wakeup) by typing XCtrl-C in its window or by sending it a break using the BREAK Xcommand. X XThis project/enhancement/fix is a combined effort by: X X______ / X______\O - The Software Brewery - X \\ X o Sparkling, fresh software from W.-Germany X X @@@@@ Straight from the bar to your Amiga X |~~~|\ X | | |/ X |___| With our regards to the Software Distillery X--------------------------------------------------------------------- X Xa West-German group of (hopefully professional) Amiga programmers Xinspired by the Software Destillery X(but we germans are more into brewing & drinking beer <grin>). X XProgramming & documentation by <CB> X X<CB> is : Christian Balzer X Im Wingertsberg 45 X D-6108 Weiterstadt X W. Germany X XAztec C support by Christof Bonnkirch (another CB :-) ) XFurther support/ideas by Peter Stark, Heiko Rath and Ralf Woitinas. X XI would like to thank Steve R. Sampson for his initial PD cron, Rick XSchaeffer for his port to the Amiga, Rob Peck for all the work he Xdid and will (hopefully) do in the future and especially Fred Fish Xfor his continuous effort to spread all that fantastic PD software Xall over the world, without all of them I wouldn't have done this. X<CB> END_OF_FILE if test 9059 -ne `wc -c <'AmiCron.doc'`; then echo shar: \"'AmiCron.doc'\" unpacked with wrong size! fi # end of 'AmiCron.doc' fi if test -f 'AmiCron.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'AmiCron.uu'\" else echo shar: Extracting \"'AmiCron.uu'\" $6921 characters$ sed "s/^X//" >'AmiCron.uu' <<'END_OF_FILE' Xbegin 666 AmiCron XM```#\P`````````%``````````0```!H````4P```EL```#P````_````^D`O XM``!H8`I*_```!]``````2?D`````2H!G%B/`````0$/Y````1&`"$MA1R/_\[ XM8!(S^0``$`````!$<`$CP````$!'^0```;QR`"`\````C6`")L%1R/_\+'@`? XM!$/Y```!4W`G3J[]V"E```AG``"R($`I:``X`!`@*``P*4``#"9N`10B*P"8Z XM+$!.KO^@*4``!$7Y```!)"5\```'T```%6L`"0`$%7P``@`%(CP```%.)#P`! XM``/M+&P`#$ZN_^(E0``.)4``"D?Z_S8E4P`6*5,``"QX``12+@$GD\E!^@!JD XM+&P`"$ZN_=Y#^@`V2H!K$$*3,T``!$'Z`(=.KO\<8!I!^@!?3J[_'"(L``1.? XMKO^F(DXL>``$3J[^8BQX``1.=0```48`````````````````````````````Y XM``````````````````!!;6E#<F]N`$Y)3#H`87)P+FQI8G)A<GD`0V]U;&0@# XM;F]T(&-R96%T92`E<RUP<F]C97-S(0H`)7,@<W1A<G1E9"!A="!B86-K9W)O1 XM=6YD('-H96QL("5D"@````/L````!`````````$>````J@```)````!:````8 XM!`````$````R````'@```#H````8`````@````0```!`````#@````````/RP XM```#Z0```%-)^0````!!^0```$0@.0```$!.N@$P+&P`""(L``1.KO^F+'@`( XM!%(N`2<B+```+&P`#$ZN_V0L;``(3J[^ADYU````````````````````````@ XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM``````````````````````!.^0````!P80```^P````"`````0````X````(@ XM`````0````(```%&`````0````0````"`````````_(```/I```"6TY5_^1(= XMYR\Z2?D`````)D@N`$CG`#`@2R`'(FP`,$7L`ZPF;``L+&P`"$ZN_P1,WPP`1 XM*T#_Z&PN*6P#K`%(2'@`,DAX`+QP`"\`+P!(;`%D<@`O`4AL`3PO`4ZZ"/AAZ XM``?63^\`($JM_^AG#"!L`ZQ#[``T$MAF_"QX``1.KO]\0_H"A$ZN_GHI0``4) XM9P``V$ZN_W:1R'``+&P`"$ZN_LXI0`'$9P``CG`8(CP``0`!+'@`!$ZN_SHIR XM0`'82H!G.B!`$7P`!0`((&P!V"%L`<0`#D'L`#0B;`'8(T@`%"!L`!1.KOZ2V XM(&P!Q$ZN_H`B;`'8<!A.KO\N8"Q!^@(6*4@!2$AX`#)(>`#D<``O`"\`2&P!5 XM9'(`+P%(;`$\+P%.N@@T3^\`(")L`<0L;``(3J[^R&`L0?H!]"E(`4A(>``RF XM2'@!#'``+P`O`$AL`61R`"\!2&P!/"\!3KH'^D_O`"!A``;48$9!^@&><``LU XM;``(3J[^SBE``<!*@&8P0?H!R"E(`4A(>``R2'@!!'(`+P$O`4AL`61T`"\"+ XM2&P!/"\"3KH'LF$`!I!/[P`@+'@`!$ZN_W:1R'``+&P`"$ZN_LXI0`&\9P``/ XM]AE\``4""CE\`"@"%"E``A!!^@&(<`%#[`("<@`L>``$3J[^1$J`9@``S&$`G XM!'!*`&<``,)P`"!L`;P0*``/<@$D`>&B*`(@!`!`$`!T`"!L`<`4*``/Y:&`R XM@2P`*T'_[&$``:YA``6^*T#__$AM__Q.N@<L)$!P/)"2+H!A``7(6$\@!BQX( XM``1.KO["*@`(!0`,9P1A``78(`7`K?_L9TH@;`'`+'@`!$ZN_HPI0`'82H!G( XM-B)`(&D`%$WL`#0<V&;\(FP!V"QX``1.KOZ&(FP!R"QL``A.KOZD0JP!R&$`T XM`[Q*`&8$80`%AB`%P(1GDF``_VYA``5X3-]<]$Y=3G5#<F]N1FEL90``57-A0 XM9V4Z($%M:4-R;VX@6T-R;VY&:6QE70!T;W!A>BYF;VYT``!#86YC96P``%%U8 XM:70``$%M:4-R;VY6-"XR`$YO(&UE;6]R>2!F;W(@;65S<V%G92$``$-O=6QDJ XM(&YO="!C<F5A=&4@<F5P;'EP;W)T(0!#;W5L9"!N;W0@8W)E871E($-R;VY0U XM;W)T(0``=&EM97(N9&5V:6-E```J`$-A;B=T(&=E="!C<F]N=&%B+69I;&4`" XM`$-O=6QD(&YO="!O<&5N('1I;65R+F1E=FEC92$``$-O=6QD(&YO="!O<&5NT XM('1I;65R<&]R="$`475I=&EN9R!T:&4@06UI0W)O;B$``$Y5__A(YP`R80`$S XM"BM`__A(;?_X3KH%>%A/)D!"+`.J2BP#JF8``*AA``"L2@!G\"\K``1(;`(JB XM80`!2E!/2@!GWB\K``A(;`)J80`!.%!/2@!GS"\K``Q(;`*J80`!)E!/2@!GP XMNB`K`!!2@"\`2&P"ZF$``1!03TH`9Z0O*P`82&P#*F$``/Y03TH`9Y(P?``$@ XM(E`@:0$4&6@`"0'@&7P`@@'A+&P`#$ZN_\HI0`'F3J[_Q"E``>I![`-JD\E%[ XM[`'<+&P`"$ZN_=Y@`/]43-],`$Y=3G5.5?]T2.<!$$AX`(1(;?]T80`"O%!/8 XM2H!F"AE\``$#JG``8#I'[?]T?@!P!;Z`;"(@!^6`+PM![``8+S`(`&$``"90V XM3R9`(`MF!'``8!!2AV#8($M#[`-J$MAF_'`!3-\(@$Y=3G5(YP`P)F\`#"1OS XM`!`0$G(@L`%G$'()L`%G"DH`9P86P%**8.A*$F8$<`!@%D(3$!)R(+`!9P9R_ XM";`!9@12BF#N(`I,WPP`3G5(YP<0)F\`%"XO`!A\`"!+0_K^`A`8L!EF#$H`G XM9O9F!G`!8```WAH;(`5*`&<B<#"Z`&4<<#FZ`&(6(`9R"DZZ`\1R`!(%T($L1 XM`'(PG(%@UG``$`5*0&<.!$``+&<64T!G8F```)Z^AE?`1`!(@$C`8```D+Z&C XM5\!$`$B`2,!*`&<$<`%@?'P`&AL@!4H`9R)P,+H`91QP.;H`8A8@!G(*3KH#Y XM8G(`$@70@2P`<C"<@6#6OH9F!'`!8$AP++H`9\9P`&`^OH9L!'``8#9\`!H;@ XM(`5*`&<B<#"Z`&4<<#FZ`&(6(`9R"DZZ`QQR`!(%T($L`'(PG(%@UKZ&7\!$9 XM`$B`2,!,WPC@3G5(YS\2>@!![``T(@AT_BQL``Q.KO^L+@!*AV<``)@@/```" XM`01R`2QX``1.KO\Z)D`@"V=V(@<D"RQL``Q.KO^:2H!G5B`K`'PL;``(3J[^\ XMJBE``<AG1$'L`#0B""0\```#[2QL``Q.KO_B+`!*AF<J(@8D+`'()BL`?$ZNZ XM_]8I0`'4(BL`?"E!`=1G!BEL`<@!S'H!(@9.KO_<(DL@/````00L>``$3J[_> XM+B('+&P`#$ZN_Z9*!6980?K\5"E(`4A![`%0*4@!3$'L`#0I2`%<(DA*&6;\( XM4XF3R"@)<!>X@&,$(@1@`B(`YX%P+-*`2'@`.R\!<``O`"\`2&P!9'0`+P)(- XM;`$\+P).N@'F3^\`("`%3-](_$YU2.<'$"9O`!0N+P`8>@"^A6]8("P!T+"L? XM`=1L-"!L`<P<&"E(`<QR"KP!9A0@15*%<@`@"!>!"`!2K`'0(`M@*B!%4H4@) XM"!>&"`!2K`'08+YP`"E``=`I;`'(`<Q*A68$<`!@!D(S6``@"TS?".!.=2\.) XM.7P`"@(>0^P"`BQX``1.KOXX(#P/#)-@T*P"(BQ?3G5(YP$"+B\`##E\``D"? XM'BE'`B)"K`(F0^P"`BQX``1.KOXR3-]`@$YU+PY*K`'`9P`!#BQX``1.KO]\& XM(&P!P"QX``1.KOZ,*4`!V$J`9P@B0$ZN_H9@Y")L`<`L;``(3J[^R"QX``1.# XMKO]V2JP!R&<,(FP!R"QL``A.KOZD2JP!O&=@2JP"%F<@2FP"'F<,0^P"`BQX9 XM``1.KOX@0^P"`BQX``1.KOX^8"Q!^OK2*4@!2$AX`#)(>`$4<``O`"\`2&P!( XM9'(`+P%(;`$\+P%.N@!X3^\`(")L`;PL;``(3J[^R&`L0?KZMBE(`4A(>``R5 XM2'@`_'``+P`O`$AL`61R`"\!2&P!/"\!3KH`/D_O`"!!^OJD*4@!2)'(*4@!H XM3$AX`#)(>`#4<``O`"\`2&P!>"\(2&P!/"\(3KH`#D_O`"!.N@`,+%].=4[Y) XM```"($[Y````%D[Y```!/$[Y```!!````^P````!`````0``"5P````#````H XM`P``"6(```EH```)5@````$````$````"@````````/R```#Z0```/!.5?_XX XM+PLF;`.P(`MF!$?Z`'P94P/$&6L``0/%&6L``@/&0BP#QT'L`\0I2`.\0>L`H XM`TAM__@O"$ZZ`'Y03U:`U\`@+?_X(CP```X03KH`[BE``[A*$V<>&5,#R!EKO XM``$#R1EK``(#RG``&4`#RW(!*4$#M&`(0BP#R$*L`[1![`/(*4@#P"9?3EU.[ XM=4-35#8`````````````````````````````````````````````````````5 XM(&\`!")(<@!P`"\"#!``*V<&#!``+68"4D@0&`0``#!M$@P```EN#"0!Y8'26 XM@M*!TH!@Y@P1`"UF`D2!)!\@"%.`(&\`"""!D(E.=4Y5__PO"R9O`!!.NO[PI XM(!.0K`.X*T#__$JL`[1G"`:M```.$/_\2&W__$ZZ`2PF;?_X3EU.=0``2.<PT XM`"0`)@%(0DA#Q,'&P,#!U$-(0D)"T(),WP`,3G5*@&H``!Y$@$J!:@``#$2!Y XM80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&1(!.=2\"2$$T`68``")(! XM0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].=2\#=A`,00"`9```!N&9+ XM44,,00@`9```!NF964,,02``9```!N6954-*06L```;CF5-#-`#FJ$A"0D+FB XMJDA#@,$V`#`"-`-(0<3!D()D```(4T/0@63^<@`R`TA#Y[A(0,%!)A\D'TYU0 XM2.<P,BQL`!`@;P`8(F\`'"1O`"`F;P`D("\`*"(O`"PD+P`P)B\`-$ZN_J1,C XMWTP,3G4``````````'!A3E7_Z$CG#Q`F;P`T(!,B/``!48!.NO[J*T#_\"P`% XM(!,B/``!48!.NO[8+@$@!R(\```.$$ZZ_LHH`"`'(CP```X03KK^O"X!(`=RX XM/$ZZ_K(K0/_H(`=R/$ZZ_J8N`2E'`\PI;?_H`]`I1`/42&W_\&$``$PJ`"`%I XM!(````=L*4`#X"EM__`#Z"Z%2&W_\&$``(8I0`/<("W_\%*`*4`#V"`&6(!R[ XM!TZZ_E@I00/D0>P#S"`(3.T(\/_43EU.=4CG`Q`F;P`0+CP```>R+!,,A@``G XM`6UO'B`'<@1.NOXD2H%F"`2&```!;F`&!(8```%M4H=@V@R&```!;680(`=RT XM!$ZZ_?Y*@6<$4H=\`":&(`=,WPC`3G5(YP<0)F\`%"XO`!@@!W($3KK]V$J!$ XM9@9P'2E``9!Z`"P3<`RZ@&P<(`7E@$'L`8PB,`@`LH9N#$'L`8R<L`@`4H5@_ XMWB:&(`5,WPC@3G4```/R```#Z@```&\`````````````````````````````6 XM``````(J```":@```JH```+J```#*@```L@```+24SI#<F]N5&%B````````Q XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM`````````````````````````NP`"`````$````*``4```$T````````````[ XM`0````H`#@```30````````````!````!@`#```!-````O@```````$````&. XM``,```$T```#```````````?````'````!\````>````'P```!X````?````/ XM'P```!X````?````'@```!\```/L````!0````(```&$```!<````30````PJ XM````+`````D````$````*````"0````@````'````!@```&````!;````5@`@ X+``%$`````````_($^ X`` Xend Xsize 4916 END_OF_FILE if test 6921 -ne `wc -c <'AmiCron.uu'`; then echo shar: \"'AmiCron.uu'\" unpacked with wrong size! fi # end of 'AmiCron.uu' fi if test -f 'AmiCronS.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'AmiCronS.uu'\" else echo shar: Extracting \"'AmiCronS.uu'\" $6568 characters$ sed "s/^X//" >'AmiCronS.uu' <<'END_OF_FILE' Xbegin 666 AmiCronS XM```#\P`````````#``````````(````5```#1P```/H```/I````%4CG@(!)- XM^0`````L>``$0_D````^<"=.KOW8*4```"!`*6@`,``$*6@`.``(3-\!`4ZZ7 XM`!HL;```3J[^ADYU87)P+FQI8G)A<GD```!.^0````!P80```^P````!````C XM`````!`````!`````0```$X````!`````@````8````````#\@```^D```-'4 XM3E7_Y$CG+SI)^0`````F2"X`2.<`,"!+(`<B;``H1>P#I"9L`"0L;```3J[_$ XM!$S?#``K0/_H;"XI;`.D`4!(>``R2'@`O'``+P`O`$AL`5QR`"\!2&P!-"\!L XM3KH+(&$`!]9/[P`@2JW_Z&<,(&P#I$/L`"P2V&;\+'@`!$ZN_WQ#^@*$3J[^6 XM>BE```QG``#83J[_=I'(<``L;```3J[^SBE``;QG``".<!@B/``!``$L>``$S XM3J[_.BE``=!*@&<Z($`1?``%``@@;`'0(6P!O``.0>P`+")L`=`C2``4(&P`, XM#$ZN_I(@;`&\3J[^@")L`=!P&$ZN_RY@+$'Z`A8I2`%`2'@`,DAX`.1P`"\`Q XM+P!(;`%<<@`O`4AL`30O`4ZZ"EQ/[P`@(FP!O"QL``!.KO[(8"Q!^@'T*4@!: XM0$AX`#)(>`$,<``O`"\`2&P!7'(`+P%(;`$T+P%.N@HB3^\`(&$`!M1@1D'Z' XM`9YP`"QL``!.KO[.*4`!N$J`9C!!^@'(*4@!0$AX`#)(>`$$<@`O`2\!2&P!E XM7'0`+P)(;`$T+P).N@G:80`&D$_O`"`L>``$3J[_=I'(<``L;```3J[^SBE`& XM`;1G``#V&7P`!0(".7P`*`(,*4`""$'Z`8AP`4/L`?IR`"QX``1.KOY$2H!FU XM``#,80`$<$H`9P``PG``(&P!M!`H``]R`20!X:(H`B`$`$`0`'0`(&P!N!0HZ XM``_EH8"!+``K0?_L80`!KF$`!;XK0/_\2&W__$ZZ""8D0'`\D)(N@&$`!<A8_ XM3R`&+'@`!$ZN_L(J``@%``QG!&$`!=@@!<"M_^QG2B!L`;@L>``$3J[^C"E`/ XM`=!*@&<V(D`@:0`43>P`+!S89OPB;`'0+'@`!$ZN_H8B;`'`+&P``$ZN_J1"` XMK`'`80`#O$H`9@1A``6&(`7`A&>28`#_;F$`!7A,WUST3EU.=4-R;VY&:6QEU XM``!5<V%G93H@06UI0W)O;B!;0W)O;D9I;&5=`'1O<&%Z+F9O;G0``$-A;F-E/ XM;```475I=```06UI0W)O;E8T+C(`3F\@;65M;W)Y(&9O<B!M97-S86=E(0``E XM0V]U;&0@;F]T(&-R96%T92!R97!L>7!O<G0A`$-O=6QD(&YO="!C<F5A=&4@* XM0W)O;E!O<G0A``!T:6UE<BYD979I8V4``"H`0V%N)W0@9V5T(&-R;VYT86(M$ XM9FEL90``0V]U;&0@;F]T(&]P96X@=&EM97(N9&5V:6-E(0``0V]U;&0@;F]T" XM(&]P96X@=&EM97)P;W)T(0!1=6ET:6YG('1H92!!;6E#<F]N(0``3E7_^$CGN XM`#)A``0**T#_^$AM__A.N@9R6$\F0$(L`Z)*+`.B9@``J&$``*Q*`&?P+RL`` XM!$AL`B)A``%*4$]*`&?>+RL`"$AL`F)A``$X4$]*`&?,+RL`#$AL`J)A``$FL XM4$]*`&>Z("L`$%*`+P!(;`+B80`!$%!/2@!GI"\K`!A(;`,B80``_E!/2@!G> XMDC!\``0B4"!I`109:``)`=@9?`""`=DL;``$3J[_RBE``=Y.KO_$*4`!XD'L' XM`V*3R47L`=0L;```3J[]WF``_U1,WTP`3EU.=4Y5_W1(YP$02'@`A$AM_W1AQ XM``*\4$]*@&8*&7P``0.B<`!@.D?M_W1^`'`%OH!L(B`'Y8`O"T'L`!`O,`@`L XM80``)E!/)D`@"V8$<`!@$%*'8-@@2T/L`V(2V&;\<`%,WPB`3EU.=4CG`#`FT XM;P`,)&\`$!`2<B"P`6<0<@FP`6<*2@!G!A;`4HI@Z$H29@1P`&`60A,0$G(@] XML`%G!G()L`%F!%**8.X@"DS?#`!.=4CG!Q`F;P`4+B\`&'P`($M#^OX"$!BPB XM&68,2@!F]F8&<`%@``#>&AL@!4H`9R)P,+H`91QP.;H`8A8@!G(*3KH$_'(`+ XM$@70@2P`<C"<@6#6<``0!4I`9PX$0``L9Q930&=B8```GKZ&5\!$`$B`2,!@C XM``"0OH97P$0`2(!(P$H`9P1P`6!\?``:&R`%2@!G(G`PN@!E''`YN@!B%B`&& XM<@I.N@2:<@`2!="!+`!R,)R!8-:^AF8$<`%@2'`LN@!GQG``8#Z^AFP$<`!@Y XM-GP`&AL@!4H`9R)P,+H`91QP.;H`8A8@!G(*3KH$5'(`$@70@2P`<C"<@6#62 XMOH9?P$0`2(!(P$S?".!.=4CG/Q)Z`$'L`"PB"'3^+&P`!$ZN_ZPN`$J'9P``E XMF"`\```!!'(!+'@`!$ZN_SHF0"`+9W8B!R0++&P`!$ZN_YI*@&=6("L`?"QLF XM``!.KOZJ*4`!P&=$0>P`+"(()#P```/M+&P`!$ZN_^(L`$J&9RHB!B0L`<`FQ XM*P!\3J[_UBE``<PB*P!\*4$!S&<&*6P!P`'$>@$B!DZN_]PB2R`\```!!"QXB XM``1.KO\N(@<L;``$3J[_IDH%9EA!^OQ4*4@!0$'L`4@I2`%$0>P`+"E(`50B* XM2$H99OQ3B9/(*`EP%[B`8P0B!&`"(@#G@7`LTH!(>``[+P%P`"\`+P!(;`%<E XM=``O`DAL`30O`DZZ!`Y/[P`@(`5,WTC\3G5(YP<0)F\`%"XO`!AZ`+Z%;U@@6 XM+`'(L*P!S&PT(&P!Q!P8*4@!Q'(*O`%F%"!%4H5R`"`(%X$(`%*L`<@@"V`J> XM($52A2`(%X8(`%*L`<A@OG``*4`!R"EL`<`!Q$J%9@1P`&`&0C-8`"`+3-\(E XMX$YU+PXY?``*`A9#[`'Z+'@`!$ZN_C@@/`\,DV#0K`(:+%].=4CG`0(N+P`,F XM.7P`"0(6*4<"&D*L`AY#[`'Z+'@`!$ZN_C),WT"`3G4O#DJL`;AG``$.+'@`B XM!$ZN_WP@;`&X+'@`!$ZN_HPI0`'02H!G"")`3J[^AF#D(FP!N"QL``!.KO[(H XM+'@`!$ZN_W9*K`'`9PPB;`'`+&P``$ZN_J1*K`&T9V!*K`(.9R!*;`(69PQ#+ XM[`'Z+'@`!$ZN_B!#[`'Z+'@`!$ZN_CY@+$'Z^M(I2`%`2'@`,DAX`11P`"\`> XM+P!(;`%<<@`O`4AL`30O`4ZZ`J!/[P`@(FP!M"QL``!.KO[(8"Q!^OJV*4@!) XM0$AX`#)(>`#\<``O`"\`2&P!7'(`+P%(;`$T+P%.N@)F3^\`($'Z^J0I2`%`A XMD<@I2`%$2'@`,DAX`-1P`"\`+P!(;`%P+PA(;`$T+PA.N@(V3^\`($ZZ``8LW XM7TYU3OD````T<&%.5?_X+PLF;`.H(`MF!$?Z`'P94P.\&6L``0.]&6L``@.^( XM0BP#OT'L`[PI2`.T0>L``TAM__@O"$ZZ`'Y03U:`U\`@+?_X(CP```X03KH`P XM[BE``[!*$V<>&5,#P!EK``$#P1EK``(#PG``&4`#PW(!*4$#K&`(0BP#P$*L1 XM`ZQ![`/`*4@#N"9?3EU.=4-35#8`````````````````````````````````> XM````````````````````(&\`!")(<@!P`"\"#!``*V<&#!``+68"4D@0&`0`[ XM`#!M$@P```EN#"0!Y8'2@M*!TH!@Y@P1`"UF`D2!)!\@"%.`(&\`"""!D(E.< XM=4Y5__PO"R9O`!!.NO[P(!.0K`.P*T#__$JL`ZQG"`:M```.$/_\2&W__$ZZ( XM`2PF;?_X3EU.=0``2.<P`"0`)@%(0DA#Q,'&P,#!U$-(0D)"T(),WP`,3G5*K XM@&H``!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&- XM1(!.=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].S XM=2\#=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*06L`R XM``;CF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```(4T/0@63^<@`R< XM`TA#Y[A(0,%!)A\D'TYU2.<P,BQL``@@;P`8(F\`'"1O`"`F;P`D("\`*"(O[ XM`"PD+P`P)B\`-$ZN_J1,WTP,3G4``````````'!A3E7_Z$CG#Q`F;P`T(!,BC XM/``!48!.NO[J*T#_\"P`(!,B/``!48!.NO[8+@$@!R(\```.$$ZZ_LHH`"`'V XM(CP```X03KK^O"X!(`=R/$ZZ_K(K0/_H(`=R/$ZZ_J8N`2E'`\0I;?_H`\@ID XM1`/,2&W_\&$``$PJ`"`%!(````=L*4`#V"EM__`#X"Z%2&W_\&$``(8I0`/44 XM("W_\%*`*4`#T"`&6(!R!TZZ_E@I00/<0>P#Q"`(3.T(\/_43EU.=4CG`Q`F> XM;P`0+CP```>R+!,,A@```6UO'B`'<@1.NOXD2H%F"`2&```!;F`&!(8```%M% XM4H=@V@R&```!;680(`=R!$ZZ_?Y*@6<$4H=\`":&(`=,WPC`3G5(YP<0)F\`8 XM%"XO`!@@!W($3KK]V$J!9@9P'2E``8AZ`"P3<`RZ@&P<(`7E@$'L`80B,`@`& XMLH9N#$'L`82<L`@`4H5@WB:&(`5,WPC@3G4```/L`````0````````E6````# XM`0````(````*`````````_(```/J````^@````````````````````````(B- XM```"8@```J(```+B```#(@```L@```+24SI#<F]N5&%B````````````````E XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM`````````````````NP`"`````$````*``4```$L`````````````0````H`^ XM#@```2P````````````!````!@`#```!+````O@```````$````&``,```$LC XM```#```````````?````'````!\````>````'P```!X````?````'P```!X`4 XM```?````'@```!\`````````````````````````````````````````````< XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM````````````````````````````````````````````````````````````` XM``````````````````````````````````````````````````/L````!0``T XM``$```%\```!:````2P````H````)`````D````"````(````!P````8````_ X=%````!````%X```!9````5````$\`````````_("' X`` Xend Xsize 4664 END_OF_FILE if test 6568 -ne `wc -c <'AmiCronS.uu'`; then echo shar: \"'AmiCronS.uu'\" unpacked with wrong size! fi # end of 'AmiCronS.uu' fi if test -f 'crontab' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'crontab'\" else echo shar: Extracting \"'crontab'\" $15 characters$ sed "s/^X//" >'crontab' <<'END_OF_FILE' X* * * * * beep END_OF_FILE if test 15 -ne `wc -c <'crontab'`; then echo shar: \"'crontab'\" unpacked with wrong size! fi # end of 'crontab' fi if test -f 'inc.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'inc.c'\" else echo shar: Extracting \"'inc.c'\" $277 characters$ sed "s/^X//" >'inc.c' <<'END_OF_FILE' X#include <proto/exec.h> X#include <proto/arp.h> X#include <proto/dos.h> X#include <proto/intuition.h> X X#include <exec/execbase.h> X#include <exec/memory.h> X#include <devices/timer.h> X#include <libraries/arpbase.h> X#include <graphics/text.h> X X#include <time.h> X#include <string.h> X END_OF_FILE if test 277 -ne `wc -c <'inc.c'`; then echo shar: \"'inc.c'\" unpacked with wrong size! fi # end of 'inc.c' fi if test -f 'makefile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'makefile'\" else echo shar: Extracting \"'makefile'\" $479 characters$ sed "s/^X//" >'makefile' <<'END_OF_FILE' XAmiCron.lzh : AmiCronS AmiCron X lharc f AmiCron.lzh * X XAmiCronS : AmiCron.o self.o X blink self.o+AmiCron.o to AmiCronS lib lib:lc.lib sd sc X XAmiCron : AmiCron.o start.o run.o X blink start.o+run.o+AmiCron.o to AmiCron lib lib:lc.lib sd X XAmiCron.o : AmiCron.c inc.p X lc -Hinc.p -v -cusfq AmiCron X Xinc.p : inc.c X lc -ph -v -cusfq -oinc.p inc.c X Xstart.o : start.a X lc:asm -u -iinclude: start.a X Xrun.o : run.a X lc:asm -u -iinclude: run.a X Xself.o : self.a X lc:asm -u -iinclude: self.a END_OF_FILE if test 479 -ne `wc -c <'makefile'`; then echo shar: \"'makefile'\" unpacked with wrong size! fi # end of 'makefile' fi if test -f 'run.a' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'run.a'\" else echo shar: Extracting \"'run.a'\" $559 characters$ sed "s/^X//" >'run.a' <<'END_OF_FILE' X INCLUDE "macros.i" X INCLUDE "exec/types.i" X INCLUDE "libraries/arpbase.i" X INCLUDE "exec/ables.i" X XExecBase EQU 4 X X csect _NOMERGE,0,0,0,4 X; section _NOMERGE,code X X XDEF MyExit,cmdlen,cmdline,run X XREF LinkerDB,AmiCron,curdir,ArpBase,DOSBase,seglist X Xrun lea LinkerDB,a4 X lea cmdline,a0 X move.l cmdlen,d0 X jsr AmiCron(pc) XMyExit move.l ArpBase(a4),a6 X move.l curdir(a4),d1 X Call UnLock X X move.l ExecBase.w,a6 X FORBID X move.l seglist(a4),d1 X move.l DOSBase(a4),a6 X Call UnLoadSeg X move.l ArpBase(a4),a6 X Call ArpExit X rts X Xcmdlen dc.l 0 Xcmdline ds.b 256 X END END_OF_FILE if test 559 -ne `wc -c <'run.a'`; then echo shar: \"'run.a'\" unpacked with wrong size! fi # end of 'run.a' fi if test -f 'self.a' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'self.a'\" else echo shar: Extracting \"'self.a'\" $784 characters$ sed "s/^X//" >'self.a' <<'END_OF_FILE' X INCLUDE "macros.i" X INCLUDE "exec/types.i" X INCLUDE "exec/ables.i" X INCLUDE "exec/execbase.i" X INCLUDE "libraries/dosextens.i" X INCLUDE "libraries/arpbase.i" X X BITDEF PR,DEFSTACK,7 XExecBase EQU 4 X X xref LinkerDB X xref AmiCron X X csect _NOMERGE,0,0,0,4 X; section _NOMERGE,code X X XDEF MyExit X Xrun movem.l d0/a0,-(a7) X lea LinkerDB,a4 Xcont move.l ExecBase.w,a6 X lea Arp,a1 X moveq.l #ArpVersion,d0 X Call OpenLibrary X move.l d0,ArpBase(a4) X move.l d0,a0 X move.l ab_DosBase(a0),DOSBase(a4) X move.l ab_IntuiBase(a0),IntuitionBase(a4) X X movem.l (a7)+,d0/a0 X jsr AmiCron(pc) XMyExit move.l ArpBase(a4),a6 X Call ArpExit X rts X XArp dc.b "arp.library",0 X X csect __MERGED,1,0,0,4 X; section __MERGED,data X X xdef ArpBase,DOSBase,IntuitionBase X XArpBase dc.l 0 XDOSBase dc.l 0 XIntuitionBase X dc.l 0 X END END_OF_FILE if test 784 -ne `wc -c <'self.a'`; then echo shar: \"'self.a'\" unpacked with wrong size! fi # end of 'self.a' fi if test -f 'start.a' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'start.a'\" else echo shar: Extracting \"'start.a'\" $2032 characters$ sed "s/^X//" >'start.a' <<'END_OF_FILE' X INCLUDE "macros.i" X INCLUDE "exec/types.i" X INCLUDE "exec/ables.i" X INCLUDE "exec/execbase.i" X INCLUDE "libraries/dosextens.i" X INCLUDE "libraries/arpbase.i" X XExecBase EQU 4 X X xref LinkerDB,_BSSBAS,_BSSLEN X xref run,cmdline,cmdlen X X csect _STARTUP,0,0,0,4 X Xstart RESIDENT 2000 X lea LinkerDB,a4 X tst.l d0 X beq.s nocmd X move.l d0,cmdlen X lea cmdline,a1 X bra.s cpy1 Xcpy_cmd move.b (a0)+,(a1)+ Xcpy1 dbf d0,cpy_cmd X bra.s cont X Xnocmd move.w $1000,cmdline X moveq.l #1,d0 X move.l d0,cmdlen X Xcont lea _BSSBAS,a3 X moveq.l #0,d1 X move.l #_BSSLEN,d0 X bra.s clr_lp Xclr_bss move.l d1,(a3)+ Xclr_lp dbf d0,clr_bss X X move.l ExecBase.w,a6 X lea Arp,a1 X moveq.l #ArpVersion,d0 X Call OpenLibrary X move.l d0,ArpBase(a4) X beq noarp X move.l d0,a0 X move.l ab_IntuiBase(a0),IntuitionBase(a4) X move.l ab_DosBase(a0),d0 X move.l d0,DOSBase(a4) X X move.l ThisTask(a6),a3 X move.l pr_CurrentDir(a3),d1 X move.l d0,a6 X Call DupLock X move.l d0,curdir(a4) X X lea pcb,a2 X move.l #2000,pcb_StackSize(a2) X move.b LN_PRI(a3),pcb_Pri(a2) X move.b #PRF_CLOSESPLAT,pcb_Control(a2) X X move.l #CON,d1 X move.l #MODE_OLDFILE,d2 X move.l DOSBase(a4),a6 X Call Open X move.l d0,pcb_Output(a2) X move.l d0,pcb_Input(a2) X X lea start-4(pc),a3 X move.l (a3),pcb_LoadedCode(a2) X move.l (a3),seglist(a4) X move.l ExecBase.w,a6 X FORBID X suba.l a1,a1 X lea name(pc),a0 X move.l ArpBase(a4),a6 X Call ASyncRun X X lea args(pc),a1 X X tst.l d0 X bmi.s starterr X X clr.l (a3) X move.w d0,4(a1) X lea startmess(pc),a0 X Call Printf X bra.s noclose X Xstarterr lea error(pc),a0 X Call Printf X move.l curdir(a4),d1 X Call UnLock X movea.l a6,a1 X move.l ExecBase.w,a6 X Call CloseLibrary Xnoclose move.l ExecBase.w,a6 X; Call Permit X Xnoarp rts X Xargs dc.l name Xnum dc.w 0 X Xpcb ds.b pcb_SIZEOF Xname dc.b "AmiCron",0 XCON dc.b "NIL:",0 X XArp dc.b "arp.library",0 Xerror dc.b "Could not create %s-process!",10,0 Xstartmess dc.b "%s started at background shell %d",10,0 X X csect __MERGED,1,0,0,4 X X xdef IntuitionBase,ArpBase,DOSBase,curdir,seglist X Xseglist dc.l 0 Xcurdir dc.l 0 XArpBase dc.l 0 XDOSBase dc.l 0 XIntuitionBase X dc.l 0 X END END_OF_FILE if test 2032 -ne `wc -c <'start.a'`; then echo shar: \"'start.a'\" unpacked with wrong size! fi # end of 'start.a' fi echo shar: End of archive 1 $of 1$. cp /dev/null ark1isdone MISSING="" for I in 1 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have the archive. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Mail submissions (sources or binaries) to <amiga@uunet.uu.net>. Mail comments to the moderator at <amiga-request@uunet.uu.net>. Post requests for sources, and general discussion to comp.sys.amiga.misc.